Codemasters Artwork Disc ECTS 2000 ( UK)/Codemasters - Artwork Disc ECTS 2000 (UK).bin/pc/xtras/medial~1/setfx~1.dir/Internal_21_Initialization Scripts.ls

Text File | 1998-12-01 | 1.0 KB | 52 lines

on startSetFX
  global fxWindow
  set fxWindow to the activeWindow
  if fxWindow = the stage then
    clearGlobals()
  end if
  if voidp(fxWindow) then
    set fxWindow to the stage
  end if
  InitGlobals()
  SetTextFields()
  Dispatch()
end

on closeWindow
  global fxTrackingObj, fxWindow
  if objectp(fxTrackingObj) and (the activeWindow = fxWindow) then
    set fxTrackingObj to 0
  end if
  go("safeexit")
end

on KillWindow
  set the visible of the activeWindow to 0
  forget(the activeWindow)
end

on InitGlobals
  global fxDisplayMember, fxTrackingObj
  set fxDisplayMember to member "Alpha"
  preLoad(fxDisplayMember)
  if not objectp(fxTrackingObj) then
    set fxTrackingObj to new(script "Tracking Object")
    if not objectp(fxTrackingObj) then
      alert("Something is amiss.  Unable to initiate tracking")
    end if
  end if
end

on Dispatch
  global fxTrackingObj
  if validMember(fxTrackingObj) then
    go("General Member Settings")
  else
    go("No Cast Chosen")
  end if
end

on SetTextFields
  put " " into field "Help Text"
end